O5555(EASY STEP MACRO)
(INSERT AFTER MAIN PROGRAM)
(AS A SUB TO ADJUST DOC)
(EVERY APPLICATION)
(MODIFY TO SUIT NEED)
(UNPROVEN)

(FORMAT G65/G66 QSRZEF)
(Q = #17 - STEPOVER IN Z/ DOC)
(S = #19 - SUB PROGRAM NUMBER)
(MUST USE DECIMAL EX: 1. = 0001.)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF TAPER IN Z)
(F = #9 - FEEDRATE)
(***********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
#103=#5001
#104=#5002
G0X#103Y#104
Z[#26+.1]
G1Z#26F#9
#105=#5003
WHILE[#101GE0]DO1
IF[#101LT0]GOTO100
#101=#101-1.
G1Z#105F#9
M98P#19
G0Z#18
X#103Y#104
Z[#105+.1]
#105=#105-#102
END1
N100G0G90Z#18
X#103Y#104
M99
N1000#3000= 1( Q VALUE TOO BIG )
